home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Megahits 6
/
Megahits 6 (1995)(GTI - Rhein-Main-Soft)(DE)(Disc 2 of 2)[!].iso
/
time_ungepackt
/
time_271_300
/
time299
/
filer
/
rexx
/
putfiles.filer
< prev
next >
Wrap
Text File
|
1995-07-15
|
980b
|
62 lines
/*
$VER: PutFiles.filer 2.0 (22.11.93)
Author:
Matthias Scheler (tron@lyssa.pb.owl.de)
Function:
All selected files in the active directory listview will be transfered
via DNet using "putfiles".
Requires:
DNet up and running
putfiles
Call:
PutFiles
Example for "Filer.RC":
BUTTON ...,...,"PutFiles","RX PutFiles"
*/
ADDRESS 'FilerRexx'
OPTIONS RESULTS
GETSOURCEPATH
IF RESULT="RESULT" THEN EXIT 5
SourceDir=RESULT
LOCKFILER
IF RESULT="RESULT" THEN EXIT 5
Key=Result
PANEL OFF
'STATUS DNet file transfer'
GETNUMENTRIES
Num=RESULT
DO Index=1 TO Num
GETNAME Index
Data=RESULT
Name=SUBSTR(Data,2)
IF RIGHT(SourceDir,1)=":" THEN SourceName=SourceDir||Name
ELSE SourceName=SourceDir||"/"||Name
IF LEFT(Data,1)="f" THEN
DO
ADDRESS 'COMMAND' 'putfiles "'||SourceName||'"'
TOGGLEENTRY Index
'HISTORY "'||SourceName||'" transfered via DNet.'
END
END
'STATUS Operation finished !'
PANEL ON
UNLOCKFILER Key